home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 June / EnigmA AMIGA RUN 19 (1997)(G.R. Edizioni)(IT)[!][issue 1997-06][EAR-CD III].iso / recent1 / dza_12b.lha / DzA next >
Text File  |  1997-05-19  |  3KB  |  184 lines
  1. ;GUI for LzX LhA & DmS DCG©
  2. ;LzX LhA & DmS must be in C:
  3. ;$VER: DZA 1.2b DCG©
  4.  
  5. LAB Start
  6. C:Requestchoice >env:achoice "DCG© 1.2b""Select Option""LzX""LhA""DmS""Cancel"
  7.  
  8. IF $achoice eq "0"
  9. skip EndIt
  10. ENDIF
  11.  
  12. IF $achoice eq "1"
  13. skip lzx
  14. ENDIF
  15.  
  16. IF $achoice eq "2"
  17. skip lha
  18. ENDIF
  19.  
  20. IF $achoice eq "3"
  21. skip dms
  22. ENDIF
  23.  
  24. lab again
  25. c:requestchoice >env:gchoice "DCG© 1.2b""Go_Again""YEA""NAA"
  26.  
  27. if $gchoice eq "0"
  28. skip endit
  29. endif
  30.  
  31. if $gchoice eq "1"
  32. skip start back
  33. endif
  34.  
  35. lab lha
  36. C:Requestchoice >env:lchoice "DCG© 1.2b""Select Option""LhA_Files""UnLhA""LhA_Dir""Cancel"
  37.  
  38. if $lchoice eq "0"
  39. skip EndIt
  40. ENDIF
  41.  
  42. IF $lchoice eq "1"
  43. skip Tolha
  44. ENDIF
  45.  
  46. IF $lchoice eq "2"
  47. skip unlha
  48. ENDIF
  49.  
  50. IF $Ichoice eq "3"
  51. skip vlha
  52. ENDIF
  53.  
  54. LAB vlha
  55. C:Requestfile Ram: >env:lhafile drawersonly TITLE "Select Directory to LhA"
  56. skip wheretolha
  57.  
  58. lab wheretolha
  59. c:requestfile Ram: >env:lhadrawer title "Where to LhA"
  60. c:lha -r a -q $lhadrawer $lhafile 
  61.  
  62. skip again back
  63.  
  64. LAB Tolha
  65. C:Requestfile Ram: >env:lhafile multiselect pattern="#?|#?.info" TITLE "Select File to LhA"
  66. skip wheretolha
  67.  
  68. lab wheretolha
  69. c:requestfile Ram: >env:lhadrawer title "Where to LhA"
  70. c:lha a -q $lhadrawer $lhafile
  71.  
  72. skip again back
  73.  
  74. LAB Unlha
  75. C:Requestfile Ram: >env:lhafile pattern="#?.lha" TITLE "Select File to UnLhA"
  76. skip Wherelha
  77.  
  78. LAB Wherelha
  79. C:Requestfile Ram: >env:lhaDrawer TITLE "Where to UnLhA"
  80. c:lha x $lhafile $lhaDrawer
  81.  
  82. skip again back
  83.  
  84. lab lzx
  85. C:Requestchoice >env:zchoice "DCG© 1.2b""Select Option""LzX_Files""UnLzX""LzX_Dir""Cancel"
  86.  
  87. if $zchoice eq "0"
  88. skip EndIt
  89. ENDIF
  90.  
  91. IF $zchoice eq "1"
  92. skip Tolzx
  93. ENDIF
  94.  
  95. IF $zchoice eq "2"
  96. skip unlzx
  97. ENDIF
  98.  
  99. IF $zchoice eq "3"
  100. skip vlzx
  101. ENDIF
  102.  
  103. LAB vlzx
  104. C:Requestfile Ram: >env:lzxfile drawersonly TITLE "Select Directory to LzX"
  105. skip wheretolzx
  106.  
  107. lab wheretolzx
  108. c:requestfile Ram: >env:lzxdrawer title "Where to LzX"
  109. c:lzx -r a -q $lzxdrawer $lzxfile
  110.  
  111. skip again back
  112.  
  113. LAB Tolzx
  114. C:Requestfile Ram: >env:lzxfile multiselect pattern="#?|#?.info" TITLE "Select File to LzX"
  115. skip wheretolzx
  116.  
  117. lab wheretolzx
  118. c:requestfile Ram: >env:lzxdrawer title "Where to LzX"
  119. c:lzx a -q $lzxdrawer $lzxfile
  120.  
  121. skip again back
  122.  
  123. LAB Unlzx
  124. C:Requestfile Ram: >env:lzxfile pattern="#?.lzx" TITLE "Select File to UnLzX"
  125. skip Wherelzx
  126.  
  127. LAB Wherelzx
  128. C:Requestfile Ram: >env:lzxDrawer TITLE "Where to UnLzX"
  129. c:lzx x $lzxfile $lzxDrawer
  130.  
  131. skip again back
  132.  
  133.  
  134. lab dms
  135. C:Requestchoice >env:dchoice "DCG© 1.2b""Select Option""DmS""UnDmS""ViewDmS""Cancel"
  136.  
  137. if $dchoice eq "0"
  138. skip EndIt
  139. ENDIF
  140.  
  141. IF $dchoice eq "1"
  142. skip Todms
  143. ENDIF
  144.  
  145. IF $dchoice eq "2"
  146. skip undms
  147. ENDIF
  148.  
  149. IF $dchoice eq "3"
  150. skip vdms
  151. ENDIF
  152.  
  153. lab vdms
  154. c:requestfile Ram: >env:dmsfile title "Select File to View"
  155. c:dms view $dmsfile
  156.  
  157. skip back again
  158.  
  159. lab todms
  160. c:requestfile Ram: >env:dmsfile title "Select Device to DmS"
  161. skip wheretodms
  162.  
  163. lab wheretodms
  164. c:requestfile Ram: >env:dmsdrawer title "Where to DmS"
  165. c:dms read $dmsdrawer from $dmsfile
  166.  
  167. skip again back
  168.  
  169.  
  170. lab undms
  171. c:requestfile Ram: >env:dmsfile pattern="#?.dms" title "Select File to UnDmS"
  172. skip Wheredms
  173.  
  174. LAB Wheredms
  175. C:Requestfile Ram: >env:dmsDrawer TITLE "Where to UnDmS"
  176. c:dms write $dmsfile to $dmsDrawer
  177.  
  178. skip again back
  179.  
  180. lab endit
  181. endcli
  182.  
  183. END
  184.